home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / amipro3 / macros.cmz / _AUTORUN.SMM next >
Encoding:
INI File  |  1992-11-18  |  49.6 KB  |  2,952 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Ejecuta autom<\a>ticamente varias macros.
  19.     Lotus WPD Marketing
  20.     Advanced
  21.     Global Arrays, Callbacks, fopen
  22.     noautorun
  23.     719608467
  24.     106
  25.     679268150
  26.     2327
  27.     11
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Arial
  60.         200
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         216
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         272
  103.         1
  104.         3
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Outline2
  113.     5
  114.     [fnt]
  115.         Arial
  116.         200
  117.         0
  118.         16384
  119.     [algn]
  120.         1
  121.         1
  122.         216
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         2
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         272
  159.         1
  160.         3
  161.         .
  162.         ,
  163.         $
  164.     Outline2
  165.     0
  166.     0
  167. [tag]
  168.     Outline3
  169.     6
  170.     [fnt]
  171.         Arial
  172.         200
  173.         0
  174.         16384
  175.     [algn]
  176.         1
  177.         1
  178.         216
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         4
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         3
  205.         
  206.         0
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         3
  217.         .
  218.         ,
  219.         $
  220.     Outline3
  221.     0
  222.     0
  223. [tag]
  224.     Footnote
  225.     7
  226.     [fnt]
  227.         Arial
  228.         200
  229.         0
  230.         16384
  231.     [algn]
  232.         1
  233.         1
  234.         216
  235.         720
  236.         0
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         1
  251.         0
  252.         1
  253.         1
  254.         1
  255.         10
  256.         10
  257.         1
  258.     [spec]
  259.         0
  260.         0
  261.         <*:>
  262.         0
  263.         1
  264.         1
  265.         256
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         272
  271.         1
  272.         3
  273.         .
  274.         ,
  275.         $
  276.     Footnote
  277.     0
  278.     0
  279. [tag]
  280.     Est<\a>ndar
  281.     8
  282.     [fnt]
  283.         Tms Rmn
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         1
  290.         0
  291.         0
  292.         0
  293.     [spc]
  294.         17
  295.         0
  296.         1
  297.         0
  298.         0
  299.         1
  300.         100
  301.     [brk]
  302.         4
  303.     [line]
  304.         8
  305.         0
  306.         1
  307.         0
  308.         1
  309.         1
  310.         1
  311.         10
  312.         10
  313.         1
  314.     [spec]
  315.         0
  316.         0
  317.         
  318.         0
  319.         1
  320.         1
  321.         0
  322.         0
  323.         0
  324.         0
  325.     [nfmt]
  326.         24
  327.         1
  328.         2
  329.         ,
  330.         .
  331.         Pts
  332.     Est<\a>ndar
  333.     0
  334.     0
  335. [tag]
  336.     Standard
  337.     9
  338.     [fnt]
  339.         Tms Rmn
  340.         240
  341.         0
  342.         49152
  343.     [algn]
  344.         1
  345.         1
  346.         0
  347.         0
  348.         0
  349.     [spc]
  350.         17
  351.         0
  352.         1
  353.         0
  354.         0
  355.         1
  356.         100
  357.     [brk]
  358.         4
  359.     [line]
  360.         8
  361.         0
  362.         1
  363.         0
  364.         1
  365.         1
  366.         1
  367.         10
  368.         10
  369.         1
  370.     [spec]
  371.         0
  372.         0
  373.         
  374.         0
  375.         1
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         24
  383.         1
  384.         2
  385.         ,
  386.         .
  387.         Pts
  388.     Standard
  389.     0
  390.     0
  391. [l1]
  392.     0
  393. [pg]
  394.     11
  395.     54 0 50 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  396.     112 0 74 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  397.     171 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  398.     229 0 29 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  399.     287 0 9 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  400.     343 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  401.     402 0 10 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  402.     484 0 48 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  403.     542 0 87 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  404.     601 0 50 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  405.     624 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  406. [edoc]
  407. <:#240,9025>Macro by <+!>Charlie Pappas,  Mark Osborne & David Zoller<-!>
  408.  
  409. <:#231,9025>
  410.  
  411. @Function@<+@><:#293,9025><:f240,BArial,0,0,255>'declares & defines<:f>
  412.  
  413. @Outline2@<:#231,9025>define EnableWindow()    DllCall("user,EnableWindow,HHH", %1, %2)
  414.  
  415. @Outline2@<:#231,9025>Define ShowWindow()        DllCall("User,ShowWindow,AHH",%1,%2)
  416.  
  417. @Outline2@<:#231,9025>Define GetActiveWindow()    DllCall("User,GetActiveWindow,H")
  418.  
  419. @Outline2@<:#231,9025>Define SetFocus()        DllCall("User,SetFocus,HH", %1)
  420.  
  421. @Outline2@<:#231,9025>define    HFONT    "Setfont:hFont"
  422.  
  423. @Outline2@<:#462,9025>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  424.  
  425. @Outline2@<:#231,9025>define    WM_SETFONT    0x30
  426.  
  427. @Outline2@<:#462,9025>define CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  428.  
  429. @Outline2@<:#231,9025>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)
  430.  
  431. @Outline2@<:#231,9025>define VK_F1            112
  432.  
  433. @Outline2@<:#284,9025><:>declare freeit() <:f240,BArial,0,0,255>' declare user defined functions<:f>
  434.  
  435. @Outline2@<:#231,9025>declare loadlist()
  436.  
  437. @Outline2@<:#231,9025>declare savelist()
  438.  
  439. @Outline2@<:#231,9025>declare showdesc(hdlg, id, dummy)
  440.  
  441. @Outline2@<:#231,9025>declare ckauto(macro)
  442.  
  443. @Outline2@<+@><:#231,9025>Declare    LoadDocDesc(Array)
  444.  
  445. @Outline2@<+@><:#231,9025>Declare    GetDocInfo(FopenId)
  446.  
  447. @Outline2@<+@><:I0,0,0,0><:S+-1><:#231,9025>declare countfiles(filespec)
  448.  
  449. @Function@<:#293,9025>function info()
  450.  
  451. @Outline2@<:#284,9025><:f240,BArial,0,0,255>'singlestep(0)<:f>
  452.  
  453. @Outline2@<:#231,9025>ignorekeyboard(2)
  454.  
  455. @Outline2@<:#231,9025>hourglass(1)
  456.  
  457. @Outline2@<:#231,9025>DefStr Stat;
  458.  
  459. @Outline2@<:#231,9025>defstr hdlg;
  460.  
  461. @Outline2@<:#231,9025>Dim Descs(1)
  462.  
  463. @Outline2@<:#284,9025>rmac = getrunningmacrofile$() <:f240,BArial,0,0,255>' get the dos file name of running macro<:f>
  464.  
  465. @Outline2@<:#284,9025><:f240,BArial,0,0,255>'load Descs from disk or global array<:f>
  466.  
  467. @Outline3@<:#231,9025>Mac = GetMacPath$()
  468.  
  469. @Outline3@<:#231,9025>numfiles = countfiles("{mac}*.smm")
  470.  
  471. @Outline3@<:#231,9025>trytoalloc=allocglobalvar("DescAndName", numfiles)
  472.  
  473. @Outline3@<:#284,9025>if GetGlobalVar$("DescAndName") = ""    <:f240,BArial,0,0,255>'we've never been initialized<:f>
  474.  
  475. @Outline3@<:#231,9025>    If 0 = Assign(&Stat, LoadDocDesc(&Descs))
  476.  
  477. @Outline3@<:#231,9025>    Else
  478.  
  479. @Outline3@<:#284,9025>        <:f240,BArial,0,0,255>' Function returned error code<:f>
  480.  
  481. @Outline3@<:#231,9025>    Endif
  482.  
  483. @Outline3@<:#231,9025>    freeglobalvar("DescAndName")
  484.  
  485. @Outline3@<:#231,9025>    x=ArraySize(&Descs)
  486.  
  487. @Outline3@<:#284,9025>    x= x + 1        <:f240,BArial,0,0,255>'make room for the arraysize number @ the beginning<:f>
  488.  
  489. @Outline3@<:#231,9025>    allocglobalvar("DescAndName", x)
  490.  
  491. @Outline3@<:#568,9025>    SetGlobalArray("DescAndName", 1, x)    <:f240,BArial,0,0,255>'set the 1st position to the number of files in the local array<:f>
  492.  
  493. @Outline3@<:#231,9025>    for i = 2 to (x - 1)
  494.  
  495. @Outline3@<:#231,9025>        countdown = x - i
  496.  
  497. @Outline3@<:#231,9025>        StatusBarMsg("Archivos existentes: {countdown}")
  498.  
  499. @Outline3@<:#231,9025>        data =Descs(i)
  500.  
  501. @Outline3@<:#231,9025>        SetGlobalArray("DescAndName", i, data)
  502.  
  503. @Outline3@<:#231,9025>    next
  504.  
  505. @Outline3@<:#231,9025>else
  506.  
  507. @Outline3@<:#231,9025>    numfiles = GetGlobalArray$("DescAndName", 1)
  508.  
  509. @Outline3@<:#231,9025>    for i = 1 to numfiles
  510.  
  511. @Outline3@<:#231,9025>        countdown = numfiles - i
  512.  
  513. @Outline3@<:#231,9025>        StatusBarMsg("Archivos existentes: {countdown}")
  514.  
  515. @Outline3@<:#231,9025>        data = GetGlobalArray$("DescAndName", i + 1)
  516.  
  517. @Outline3@<:#231,9025>        if data != ""
  518.  
  519. @Outline3@<:#231,9025>            ArrayInsert(&Descs, i, data)
  520.  
  521. @Outline3@<:#231,9025>        endif
  522.  
  523. @Outline3@<:#231,9025>    next
  524.  
  525. @Outline3@<:#231,9025>endif
  526.  
  527. @Outline3@<:#231,9025>StatusBarMsg("")
  528.  
  529. <:#231,9025><:f200,BArial,255,0,0>number =arraysize(&descs)                       
  530.  
  531. <:#231,9025><:f200,BArial,255,0,0>dim filename(number)
  532.  
  533. <:#231,9025><:f200,BArial,255,0,0>for i = 1 to number
  534.  
  535. <:#231,9025><:f200,BArial,255,0,0>c =  strcat$(strfield$(descs(i),2,"|"),"!",i) 
  536.  
  537. <:#231,9025><:f200,BArial,255,0,0>filename(i) = c
  538.  
  539. <:#231,9025><:f200,BArial,255,0,0>next
  540.  
  541. <:#231,9025><:f200,BArial,255,0,0>arraysort(&filename)
  542.  
  543. <:#231,9025><:f200,BArial,255,0,0>dim temper(number)
  544.  
  545. <:#231,9025><:f200,BArial,255,0,0>for i = 1 to number 
  546.  
  547. <:#231,9025><:f200,BArial,255,0,0>    place = strfield$(filename(i),2,"!")
  548.  
  549. <:#231,9025><:f200,BArial,255,0,0>    temper(i) =  descs(place)
  550.  
  551. <:#231,9025><:f200,BArial,255,0,0>next    
  552.  
  553. <:#231,9025><:f200,BArial,255,0,0>for i = 1 to number
  554.  
  555. <:#231,9025><:f200,BArial,255,0,0>    descs(i) = temper(i)
  556.  
  557. <:#231,9025><:f200,BArial,255,0,0>next<:f>
  558.  
  559. @Outline2@<:#231,9025>Filledit(9000,&Descs)
  560.  
  561. @Outline2@<:#284,9025>allocglobalvar("loadem", 100) <:f240,BArial,0,0,255>' keep track of the stuff in the list box<:f>
  562.  
  563. @Outline2@<:#231,9025>allocglobalvar("count", 1)
  564.  
  565. @Outline2@<:#231,9025>setglobalvar("count", 1)
  566.  
  567. @Outline2@<:#284,9025>onerror endit <:f240,BArial,0,0,255>' set up error and cancel routines<:f>
  568.  
  569. @Outline2@<:#231,9025>oncancel endit
  570.  
  571. @Outline2@<:#231,9025>'font handing
  572.  
  573. @Outline3@<:#231,9025>AllocGlobalVar(HFONT, 1)
  574.  
  575. @Outline3@<:#231,9025>if getglobalvar$(HFONT) != ""
  576.  
  577. @Outline3@<:#231,9025>'    SetGlobalVar(HFONT, 0)
  578.  
  579. @Outline3@<:#231,9025>endif
  580.  
  581. @Outline2@<:#231,9025>filledit(20, True)
  582.  
  583. @Outline2@<:#231,9025>DlgKeyInterrupt(VK_F1, "{rmac}!helpme")
  584.  
  585. @Outline2@<:#284,9025><:>SetDlgCallBack (9000,"{rmac}!showdesc") <:f240,BArial,0,0,255>' load dlg items for callback functions<:f>
  586.  
  587. @Outline2@<:#231,9025>SetDlgCallBack (9003,"{rmac}!showdesc")
  588.  
  589. @Outline2@<:#231,9025>SetDlgCallBack (70,"{rmac}!Add")
  590.  
  591. @Outline2@<:#231,9025>SetDlgCallBack (71,"{rmac}!Del")
  592.  
  593. @Outline2@<:#231,9025>SetDlgCallBack (77,"{rmac}!cwp")
  594.  
  595. @Outline2@<:#231,9025>SetDlgCallBack(20,"{rmac}!sorttype")
  596.  
  597. @Outline2@<:#231,9025>SetDlgCallBack (0,"{rmac}!PreBuild")
  598.  
  599. @Outline2@<:#231,9025>loadlist()
  600.  
  601. @Outline2@<:#284,9025>Box = Dialogbox(".","showfiles") <:f240,BArial,0,0,255>' display the dialog box<:f>
  602.  
  603. @Outline2@<:#284,9025>switch box <:f240,BArial,0,0,255>' what did the user do<:f>
  604.  
  605. @Outline2@<:#231,9025>    case 0
  606.  
  607. @Outline3@<:#231,9025>        goto endit
  608.  
  609. @Outline2@<:#284,9025>    case 4 <:f240,BArial,0,0,255>' save stuff and close box<:f>
  610.  
  611. @Outline3@<:#231,9025>        savelist()
  612.  
  613. @Outline3@<:#231,9025>        freeit()
  614.  
  615. @Outline3@<:#231,9025>        exit function
  616.  
  617. @Outline2@<:#284,9025>    case 3 <:f240,BArial,0,0,255>' play the macro<:f>
  618.  
  619. @Outline3@<:#231,9025>        savelist()
  620.  
  621. @Outline3@<:#231,9025>        freeit()
  622.  
  623. @Outline3@<:#231,9025>        longname = GetDialogField$(9000)
  624.  
  625. @Outline3@<:#231,9025>        tname=strfield$(longname, 2, "|")
  626.  
  627. @Outline3@<:#231,9025>        mac = ucase$(tname)
  628.  
  629. @Outline3@<:#284,9025>        if mac = ucase$("_info.smm") <:f240,BArial,0,0,255>' trying to run us?<:f>
  630.  
  631. @Outline3@<:#231,9025>            message("Ya se est<\a> ejecutando {mac}")
  632.  
  633. @Outline3@<:#231,9025>            goto hosemenot
  634.  
  635. @Outline3@<:#231,9025>        endif
  636.  
  637. @Outline3@<:#231,9025>        go = decide("Run the macro ""{mac}""?")
  638.  
  639. @Outline3@<:#231,9025>        if go = 1
  640.  
  641. @Outline3@<:#231,9025>            hourglass(0)
  642.  
  643. @Outline3@<:#231,9025>            calli mac()
  644.  
  645. @Outline3@<:#231,9025>        endif
  646.  
  647. @Outline3@<:#231,9025>        hosemenot:
  648.  
  649. @Outline3@<:#231,9025>        RunLater(rmac, "00:00.02")
  650.  
  651. @Outline2@<:#284,9025>    case 1 <:f240,BArial,0,0,255>' wants to get help on the macro<:f>
  652.  
  653. @Outline3@<:#231,9025>        defstr count;
  654.  
  655. @Outline3@<:#231,9025>        savelist()
  656.  
  657. @Outline3@<:#231,9025>        freeit()
  658.  
  659. @Outline3@<:#231,9025>        if assign(&count, getopenfilecount()) << 1
  660.  
  661. @Outline3@<:#231,9025>            goto jump
  662.  
  663. @Outline3@<:#231,9025>        endif
  664.  
  665. @Outline3@<:#284,9025>        dim mdifiles(count) <:f240,BArial,0,0,255>' is goodies open?<:f>
  666.  
  667. @Outline3@<:#231,9025>        getopenfilenames(&mdifiles)
  668.  
  669. @Outline3@<:#231,9025>        alreadyopen = 0
  670.  
  671. @Outline3@<:#231,9025>        for i = 1 to count
  672.  
  673. @Outline3@<:#231,9025>            if instr(1, lcase$(mdifiles(i)), "goodies.sam") <;> 0
  674.  
  675. @Outline3@<:#231,9025>                alreadyopen = 1
  676.  
  677. @Outline3@<:#231,9025>                break
  678.  
  679. @Outline3@<:#231,9025>            endif
  680.  
  681. @Outline3@<:#231,9025>        next
  682.  
  683. @Outline3@<:#231,9025>        if alreadyopen = 0
  684.  
  685. @Outline3@<:#231,9025>            opts = 1
  686.  
  687. @Outline3@<:#284,9025>            if count << 1 <:f240,BArial,0,0,255>' didn't have a mdi window<:f>
  688.  
  689. @Outline3@<:#231,9025>                jump:
  690.  
  691. @Outline3@<:#231,9025>                defstyle = getprofilestring$("amipro", "defstyle", "amipro.ini")
  692.  
  693. @Outline3@<:#284,9025>                new(defstyle, 0, 0) <:f240,BArial,0,0,255>' open window<:f>
  694.  
  695. @Outline3@<:#231,9025>                opts = 129
  696.  
  697. @Outline3@<:#231,9025>            endif
  698.  
  699. @Outline3@<:#231,9025>            FileOpen(strcat$(getdocpath$(), "goodies.sam"),  opts, "")
  700.  
  701. @Outline3@<:#231,9025>        else
  702.  
  703. @Outline3@<:#231,9025>            appmaximize("goodies.sam")
  704.  
  705. @Outline3@<:#231,9025>            layoutmode()
  706.  
  707. @Outline3@<:#231,9025>        endif
  708.  
  709. @Outline3@<:#231,9025>        longname = GetDialogField$(9000)
  710.  
  711. @Outline3@<:#231,9025>        tname=ucase$(strfield$(longname, 2, "|"))
  712.  
  713. @Outline3@<:#231,9025>        markpage=GetBookMarkPage(tName)
  714.  
  715. @Outline3@<:#231,9025>'        GoToCmd(1, markPage, 0)
  716.  
  717. @Outline3@<:#231,9025>'        markbookmark(ucase$(tname), findbookmark)
  718.  
  719. @Outline3@<:#231,9025>        Replace(0, 0, 8197, TNAME, "")
  720.  
  721. @Outline3@<:#284,9025>        type("<[>esc]") <:f240,BArial,0,0,255>' go to bookmark of macro<:f>
  722.  
  723. @Outline3@<:#231,9025>        usercontrol("Seleccione continuar para volver a Ejecuci<\s>n autom<\a>tica.")
  724.  
  725. @Outline3@<:#231,9025>        RunLater(rmac, "00:00.02")
  726.  
  727. @Outline3@<:#231,9025>        exit function
  728.  
  729. @Outline2@<:#231,9025>endswitch
  730.  
  731. @Outline2@<:#231,9025>endit:
  732.  
  733. @Outline2@<:#231,9025>freeit()
  734.  
  735. @Outline2@<:#231,9025>'nukefont
  736.  
  737. @Outline3@<:#231,9025>font = GetGlobalVar$(HFONT)        ' If we created
  738.  
  739. @Outline3@<:#231,9025>if (0 != font)                ' the font.
  740.  
  741. @Outline3@<:#231,9025>    DeleteObject(font)        ' Delete it
  742.  
  743. @Outline3@<:#231,9025>endif
  744.  
  745. @Outline3@<:#231,9025>result=freeglobalvar(HFONT)
  746.  
  747. @Outline2@<:#231,9025>hourglass(0)
  748.  
  749. @Outline2@<:#231,9025>end function
  750.  
  751. @Function@<:#293,9025>Function PreBuild(hdlg, id, dummy)
  752.  
  753. @Outline2@<:#231,9025>'INITDLG(hdlg, id, stuff)
  754.  
  755. @Outline3@<:#231,9025>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  756.  
  757. @Outline3@<:#231,9025>if (Font)
  758.  
  759. @Outline3@<:#231,9025>    hctl = GetDlgItem(hDlg, 9000)    'one desc box
  760.  
  761. @Outline3@<:#231,9025>    hctl2 = GetDlgItem(hDlg, 9002)    'the other
  762.  
  763. @Outline3@<:#231,9025>    hctl3 = GetDlgItem(hDlg, 8007)    'the static text field for file name
  764.  
  765. @Outline3@<:#231,9025>    SendMessage(hctl, WM_SETFONT, font, 0)
  766.  
  767. @Outline3@<:#231,9025>    SendMessage(hctl2, WM_SETFONT, font, 0)
  768.  
  769. @Outline3@<:#231,9025>    SendMessage(hctl3, WM_SETFONT, font, 0)
  770.  
  771. @Outline3@<:#231,9025>    SetGlobalVar(HFONT, Font)
  772.  
  773. @Outline3@<:#231,9025>endif 
  774.  
  775. @Outline2@<:#231,9025>call UngrayButtons(hdlg)
  776.  
  777. @Outline2@<:#231,9025>call sorttype(hdlg, 20, 1)
  778.  
  779. @Outline2@<:#231,9025>end function
  780.  
  781. @Function@<:#293,9025>function UngrayButtons(hdlg) <:f240,BArial,0,0,255>' this function ungrays buttons<:f>
  782.  
  783. @Outline2@<:#231,9025>enablewindow(getdlgitem(Hdlg, 71), 0)
  784.  
  785. @Outline2@<:#231,9025>'showdesc(hdlg, id, dummy)
  786.  
  787. @Outline2@<:#231,9025>if getglobalvar$("count") <;> 0
  788.  
  789. @Outline2@<:#231,9025>    enablewindow(getdlgitem(Hdlg, 71), 1)
  790.  
  791. @Outline2@<:#231,9025>endif
  792.  
  793. @Outline2@<:#231,9025>end function
  794.  
  795. @Function@<:#293,9025>function freeit() <:f240,BArial,0,0,255>' free globals<:f>
  796.  
  797. @Outline2@<:#231,9025>freeglobalvar("loadem")
  798.  
  799. @Outline2@<:#231,9025>freeglobalvar("count")
  800.  
  801. @Outline2@<:#231,9025>end function
  802.  
  803. @Function@<:#293,9025>function saveit(hdlg)
  804.  
  805. @Outline2@<:#231,9025>hourglass(1)
  806.  
  807. @Outline2@<:#231,9025>savelist()
  808.  
  809. @Outline2@<:#231,9025>hourglass(0)
  810.  
  811. @Outline2@<:#231,9025>end function
  812.  
  813. @Function@<:#293,9025>function showdesc(hdlg, id, dummy) <:f240,BArial,0,0,255>' get the doc info stuff from array<:f>
  814.  
  815. @Outline2@<:#231,9025>ignorekeyboard(2)
  816.  
  817. @Outline2@<:#231,9025>hourglass(1)
  818.  
  819. @Outline2@<:#231,9025>defstr ar;
  820.  
  821. @Outline2@<:#231,9025>longname = GetDlgItemText(Hdlg, id)
  822.  
  823. @Outline2@<:#231,9025>file=lcase$(strfield$(longname, 2, "|"))
  824.  
  825. @Outline2@<:#231,9025>onerror endit
  826.  
  827. @Outline2@<:#231,9025>oncancel endit
  828.  
  829. @Outline2@<:#231,9025>SetDlgItemText(Hdlg, 8007, file)
  830.  
  831. @Outline2@<:#231,9025>stat = 1
  832.  
  833. @Outline2@<:#231,9025>endit:
  834.  
  835. @Outline2@<:#231,9025>hourglass(0)
  836.  
  837. @Outline2@<:#231,9025>return stat
  838.  
  839. @Outline2@<:#231,9025>end function
  840.  
  841. @Function@<:#293,9025>function sorttype(Hdlg,id,dummy)
  842.  
  843. @Outline2@<:#231,9025>sortbydesc=getdlgitemtext(hdlg, 20)
  844.  
  845. @Outline2@<:#231,9025>if sortbydesc=1
  846.  
  847. @Outline2@<:#231,9025>    ShowWindow(GetDlgItem(Hdlg,9003), 0)
  848.  
  849. @Outline2@<:#231,9025>    ShowWindow(GetDlgItem(Hdlg,9000), 1)
  850.  
  851. @Outline2@<:#231,9025>    id=9000
  852.  
  853. @Outline2@<:#231,9025>    call showdesc(Hdlg,id,dummy)
  854.  
  855. @Outline2@<:#231,9025>else
  856.  
  857. @Outline2@<:#231,9025>    ShowWindow(GetDlgItem(Hdlg,9000), 0)
  858.  
  859. @Outline2@<:#231,9025>    ShowWindow(GetDlgItem(Hdlg,9003), 1)
  860.  
  861. @Outline2@<:#231,9025>    id=9003
  862.  
  863. @Outline2@<:#231,9025>    call showdesc(Hdlg,id,dummy)
  864.  
  865. @Outline2@<:#231,9025>endif
  866.  
  867. @Outline2@<:#231,9025>end function
  868.  
  869. @Function@DIALOG    showfiles
  870.  
  871. -2134376448    17    19    44    280    140    ""    "AmiDialog"    "Ejecuci<\s>n autom<\a>tica de macros"
  872.  
  873. FONT    8    "Helv"
  874.  
  875. 6    3    60    8    1000    1342308352    "static"    "Ma&cros:"    0 
  876.  
  877. 6    12    155    111    9003    1352728577    "listbox"    ""    0 
  878.  
  879. 6    12    155    111    9000    1352728577    "listbox"    ""    0 
  880.  
  881. 164    93    44    14    70    1342373888    "button"    "&Instalar <;><;>"    0 
  882.  
  883. 164    110    44    14    71    1342242816    "button"    "<<<< Eli&minar"    0 
  884.  
  885. 212    66    46    8    1001    1342308352    "static"    "I&nstaladas:"    0 
  886.  
  887. 212    75    60    53    9002    1352728577    "listbox"    ""    0 
  888.  
  889. 232    3    42    14    4    1342373888    "button"    "Aceptar"    0 
  890.  
  891. 232    19    42    14    2    1342373888    "button"    "Cancelar"    0 
  892.  
  893. 232    35    42    14    1    1342373889    "button"    "&Detalles..."    0 
  894.  
  895. 232    51    42    14    3    1342373888    "button"    "&Ejecutar..."    0 
  896.  
  897. 263    292    0    0    77    1342177280    "button"    "&z"    0 
  898.  
  899. 75    128    70    10    8007    1342177280    "static"    ""    0 
  900.  
  901. 65    1    1    1    8013    1342177280    "static"    ""    0 
  902.  
  903. 34    3    110    8    8777    1342177281    "static"    ""    0 
  904.  
  905. 6    128    65    10    1002    1342177280    "static"    "Nombre de archivo:"    0 
  906.  
  907. 14    290    0    0    20    1342242819    "button"    "mostrar descripciones"    0 
  908.  
  909. END DIALOG
  910.  
  911. @Function@<:#293,9025>Function add(Hdlg) <:f240,BArial,0,0,255>' add a macro to autorun list<:f>
  912.  
  913. @Outline2@<:#231,9025>ignorekeyboard(2)
  914.  
  915. @Outline2@<:#231,9025>defstr autos;
  916.  
  917. @Outline2@<:#231,9025>hourglass(1)
  918.  
  919. @Outline2@<:#231,9025>longname = GetDlgItemText(Hdlg, 9000)
  920.  
  921. @Outline2@<:#231,9025>tname=lcase$(strfield$(longname, 2, "|"))
  922.  
  923. @Outline2@<:#231,9025>if ckauto(lcase$(tname)) <<<;> 1
  924.  
  925. @Outline2@<:#231,9025>    return 0
  926.  
  927. @Outline2@<:#231,9025>endif
  928.  
  929. @Outline2@<:#231,9025>count = getglobalvar$("count")
  930.  
  931. @Outline2@<:#231,9025>for i = 1 to count
  932.  
  933. @Outline2@<:#231,9025>    if tname <<<;> ""
  934.  
  935. @Outline2@<:#231,9025>        if tname = lcase$(getglobalarray$("loadem", i))
  936.  
  937. @Outline2@<:#231,9025>            message("That macro is already set to ""AutoRun""")
  938.  
  939. @Outline2@<:#231,9025>            hourglass(0)
  940.  
  941. @Outline2@<:#231,9025>            return 1
  942.  
  943. @Outline2@<:#231,9025>        endif
  944.  
  945. @Outline2@<:#231,9025>    endif
  946.  
  947. @Outline2@<:#231,9025>next
  948.  
  949. @Outline2@<:#231,9025>SetDlgItemText(Hdlg, 9002, tname)
  950.  
  951. @Outline2@<:#231,9025>enablewindow(getdlgitem(Hdlg, 71), 1)
  952.  
  953. @Outline2@<:#231,9025>count = getglobalvar$("count") + 1
  954.  
  955. @Outline2@<:#231,9025>setglobalarray("loadem", count, tname)
  956.  
  957. @Outline2@<:#231,9025>setglobalvar("count", count)
  958.  
  959. @Outline2@<:#231,9025>if GetDlgItemText(Hdlg, 9002) = ""
  960.  
  961. @Outline2@<:#231,9025>    enablewindow(getdlgitem(Hdlg, 71), 0)
  962.  
  963. @Outline2@<:#231,9025>endif
  964.  
  965. @Outline2@<:#231,9025>hourglass(0)
  966.  
  967. @Outline2@<:#231,9025>End Function
  968.  
  969. @Function@<:#293,9025><:><:>Function del(Hdlg) <:f240,BArial,0,0,255>' delete macro from autorun list<:f>
  970.  
  971. @Outline2@<:#231,9025>ignorekeyboard(2)
  972.  
  973. @Outline2@<:#231,9025>hourglass(1)
  974.  
  975. @Outline2@<:#231,9025>sname = GetDlgItemText(Hdlg, 9002)
  976.  
  977. @Outline2@<:#231,9025>if sname = ""
  978.  
  979. @Outline2@<:#231,9025>    return 0
  980.  
  981. @Outline2@<:#231,9025>endif
  982.  
  983. @Outline2@<:#231,9025>Handle=GetDlgItem(Hdlg, 9002)
  984.  
  985. @Outline2@<:#231,9025>AppSendMessage(Handle, 0x0405, 0, 0)
  986.  
  987. @Outline2@<:#231,9025>count = getglobalvar$("count")
  988.  
  989. @Outline2@<:#231,9025>if count = 0
  990.  
  991. @Outline2@<:#231,9025>    enablewindow(getdlgitem(Hdlg, 71), 0)
  992.  
  993. @Outline2@<:#231,9025>    return 0
  994.  
  995. @Outline2@<:#231,9025>endif    
  996.  
  997. @Outline2@<:#231,9025>for i = 1 to count
  998.  
  999. @Outline2@<:#231,9025>    xname = getglobalarray$("loadem", i)
  1000.  
  1001. @Outline2@<:#231,9025>    if xname = sname
  1002.  
  1003. @Outline2@<:#231,9025>        setglobalarray("loadem", i, "")
  1004.  
  1005. @Outline2@<:#231,9025>    else
  1006.  
  1007. @Outline2@<:#231,9025>        if xname <<<;> ""
  1008.  
  1009. @Outline2@<:#231,9025>            SetDlgItemText(Hdlg, 9002, xname)
  1010.  
  1011. @Outline2@<:#231,9025>        endif
  1012.  
  1013. @Outline2@<:#231,9025>        setglobalarray("loadem", i, xname)
  1014.  
  1015. @Outline2@<:#231,9025>    endif
  1016.  
  1017. @Outline2@<:#231,9025>next
  1018.  
  1019. @Outline2@<:#231,9025>hourglass(0)
  1020.  
  1021. @Outline2@<:#231,9025>highlighted=getdlgitemtext(hdlg, 9002)
  1022.  
  1023. @Outline2@<:#231,9025>if highlighted = ""
  1024.  
  1025. @Outline2@<:#231,9025>    enablewindow(getdlgitem(Hdlg, 71), 0)
  1026.  
  1027. @Outline2@<:#231,9025>endif
  1028.  
  1029. @Outline2@<:#231,9025>End Function
  1030.  
  1031. @Function@<:#293,9025>function helpme(hdlg)
  1032.  
  1033. @Outline2@<:#231,9025>box = dialogbox(".", "help")
  1034.  
  1035. @Outline2@<:#231,9025>end function
  1036.  
  1037. @Function@<:#293,9025>DIALOG    help
  1038.  
  1039. <:#231,9025>-2134376448    5    60    30    160    124    ""    ""    "Informaci<\s>n de ayuda"
  1040.  
  1041. <:#231,9025>FONT    8    "Helv"
  1042.  
  1043. <:#231,9025>60    105    40    14    1    1342242817    "button"    "Aceptar"    0 
  1044.  
  1045. <:#462,9025>11    22    138    25    1001    1342177280    "static"    "Seleccione una funci<\s>n y seleccione  Instalar para que se ejecute autom<\a>ticamente."    0 
  1046.  
  1047. <:#231,9025>6    7    148    89    80    1342177287    "button"    "Instalaci<\s>n de macro"    0 
  1048.  
  1049. <:#462,9025>11    49    138    18    1002    1342177280    "static"    "Seleccione Detalles para ver informaci<\s>n detallada sobre una funci<\s>n."    0 
  1050.  
  1051. <:#462,9025>11    70    138    18    1000    1342177280    "static"    "Para ver una demostraci<\s>n de la funci<\s>n, seleccione Ejecutar."    0 
  1052.  
  1053. <:#231,9025>END DIALOG
  1054.  
  1055. @Function@function loadlist() <:f240,BArial,0,0,255>' load list of autorun macros from amiauto.cfg file<:f>
  1056.  
  1057. @Outline2@<:#231,9025>ignorekeyboard(2)
  1058.  
  1059. @Outline2@<:#231,9025>hourglass(1)
  1060.  
  1061. @Subhead@<:#231,9025>windir = getwindowsdirectory$()
  1062.  
  1063. @Subhead@<:#231,9025>autofile = strcat$(windir, "amiauto.cfg")
  1064.  
  1065. @Outline2@<:#231,9025>ck = findfirst$(autofile, 33)
  1066.  
  1067. @Outline2@<:#231,9025>if ck = ""
  1068.  
  1069. @Outline2@<:#231,9025>    option = "w"
  1070.  
  1071. @Outline2@<:#231,9025>else
  1072.  
  1073. @Outline2@<:#231,9025>    option = "r"
  1074.  
  1075. @Outline2@<:#231,9025>endif
  1076.  
  1077. @Outline2@<:#231,9025>fh = fopen(autofile, option)
  1078.  
  1079. @Outline2@<:#231,9025>if fh << 1
  1080.  
  1081. @Outline2@<:#231,9025>    message("Imposible crear el archivo AMIAUTO.CFG")
  1082.  
  1083. @Outline2@<:#231,9025>    return -1
  1084.  
  1085. @Outline2@<:#231,9025>endif
  1086.  
  1087. @Outline2@<:#231,9025>if option = "w"
  1088.  
  1089. @Outline2@<:#231,9025>    goto endit
  1090.  
  1091. @Outline2@<:#231,9025>endif
  1092.  
  1093. @Outline2@<:#231,9025>onerror endit
  1094.  
  1095. @Outline2@<:#231,9025>oncancel endit
  1096.  
  1097. @Outline2@<:#231,9025>i = 0
  1098.  
  1099. @Outline2@<:#231,9025>while (1)
  1100.  
  1101. @Outline2@<:#231,9025>    txt = fgets$(fh)
  1102.  
  1103. @Outline2@<:#231,9025>    if txt = -1
  1104.  
  1105. @Outline2@<:#231,9025>        break
  1106.  
  1107. @Outline2@<:#231,9025>    endif
  1108.  
  1109. @Outline2@<:#231,9025>    i = i + 1
  1110.  
  1111. @Outline2@<:#231,9025>    setglobalarray("loadem", i, txt)
  1112.  
  1113. @Outline2@<:#231,9025>    filledit(9002, txt)
  1114.  
  1115. @Outline2@<:#231,9025>wend
  1116.  
  1117. @Outline2@<:#231,9025>endit:
  1118.  
  1119. @Outline2@<:#231,9025>fclose(fh)
  1120.  
  1121. @Outline2@<:#231,9025>setglobalvar("count", i)
  1122.  
  1123. @Outline2@<:#231,9025>hourglass(0)
  1124.  
  1125. @Outline2@<:#231,9025>end function
  1126.  
  1127. @Function@<:#293,9025>function savelist() <:f240,BArial,0,0,255>' write out list of macros to be autorun<:f>
  1128.  
  1129. @Outline2@<:#231,9025>ignorekeyboard(2)
  1130.  
  1131. @Outline2@<:#231,9025>hourglass(1)
  1132.  
  1133. @Subhead@<:#231,9025>windir = getwindowsdirectory$()
  1134.  
  1135. @Subhead@<:#231,9025>autofile = strcat$(windir, "amiauto.cfg")
  1136.  
  1137. @Outline2@<:#231,9025>defstr txt;
  1138.  
  1139. @Outline2@<:#231,9025>fh = fopen(autofile, "w")
  1140.  
  1141. @Outline2@<:#231,9025>if fh << 1
  1142.  
  1143. @Outline2@<:#231,9025>    message("Imposible guardar el archivo AMIAUTO.CFG")
  1144.  
  1145. @Outline2@<:#231,9025>    hourglass(0)
  1146.  
  1147. @Outline2@<:#231,9025>    return -1
  1148.  
  1149. @Outline2@<:#231,9025>endif
  1150.  
  1151. @Outline2@<:#231,9025>onerror endit
  1152.  
  1153. @Outline2@<:#231,9025>oncancel endit
  1154.  
  1155. @Outline2@<:#231,9025>count = getglobalvar$("count")
  1156.  
  1157. @Outline2@<:#231,9025>for i = 1 to count
  1158.  
  1159. @Outline2@<:#231,9025>    if assign(&txt, getglobalarray$("loadem", i)) <<<;> ""
  1160.  
  1161. @Outline2@<:#231,9025>        fputs(fh, txt)
  1162.  
  1163. @Outline2@<:#231,9025>    endif
  1164.  
  1165. @Outline2@<:#231,9025>next
  1166.  
  1167. @Outline2@<:#231,9025>endit:
  1168.  
  1169. @Outline2@<:#231,9025>fclose(fh)
  1170.  
  1171. @Outline2@<:#231,9025>hourglass(0)
  1172.  
  1173. @Outline2@<:#231,9025>call zproglod("")
  1174.  
  1175. @Outline2@<:#231,9025>end function
  1176.  
  1177. @Function@<:#293,9025>function zgood(macro) 
  1178.  
  1179. @Outline2@<:#231,9025>declare ckauto(file)
  1180.  
  1181. @Outline2@<:#231,9025>which = left$(macro, 2)
  1182.  
  1183. @Outline2@<:#231,9025>mac = mid$(macro, 3, len(macro))
  1184.  
  1185. @Outline2@<:#231,9025>switch which
  1186.  
  1187. @Outline2@<:#231,9025>    case "td"
  1188.  
  1189. @Outline2@<:#231,9025>        calli mac()
  1190.  
  1191. @Outline2@<:#231,9025>    case "ar"
  1192.  
  1193. @Outline2@<:#231,9025>        runit = ckauto(mac)
  1194.  
  1195. @Outline2@<:#231,9025>        if runit <<<;> 1
  1196.  
  1197. @Outline2@<:#231,9025>            message("{mac} no se ejecuta autom<\a>ticamente")
  1198.  
  1199. @Outline2@<:#231,9025>            return -1
  1200.  
  1201. @Outline2@<:#231,9025>        endif
  1202.  
  1203. @Outline2@<:#231,9025>        if call zmkauto(mac) = 1
  1204.  
  1205. @Outline2@<:#231,9025>            message("{mac} instalada en Ejecuci<\s>n autom<\a>tica.")
  1206.  
  1207. @Outline2@<:#231,9025>        endif
  1208.  
  1209. @Outline2@<:#231,9025>    case    "si"
  1210.  
  1211. @Outline2@<:#231,9025>        call _autorun.smm()        
  1212.  
  1213. @Outline2@<:#231,9025>endswitch
  1214.  
  1215. @Outline2@<:#231,9025>end function
  1216.  
  1217. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>function cwp(hdlg)
  1218.  
  1219. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>again:
  1220.  
  1221. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>p = 004
  1222.  
  1223. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "--<;><;> Pete <<<<--")
  1224.  
  1225. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1226.  
  1227. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Mark Osborne")
  1228.  
  1229. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1230.  
  1231. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Peter Housley")
  1232.  
  1233. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1234.  
  1235. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Hugh Marlor")
  1236.  
  1237. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1238.  
  1239. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "John McDaniel")
  1240.  
  1241. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1242.  
  1243. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Peyton McManus")
  1244.  
  1245. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1246.  
  1247. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Robert Pernett")
  1248.  
  1249. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1250.  
  1251. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Powell Smith")
  1252.  
  1253. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1254.  
  1255. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Sandra Wilson")
  1256.  
  1257. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1258.  
  1259. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "David Zoller")
  1260.  
  1261. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1262.  
  1263. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Charlie Pappas")
  1264.  
  1265. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>pause(p)
  1266.  
  1267. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>goto again
  1268.  
  1269. @Outline2@<:S+14><:#14,9025><:f20,QCourier,255,255,255>end function
  1270.  
  1271. @Function@<:#293,9025>function ckauto(file)
  1272.  
  1273. @Outline2@<:#231,9025>ignorekeyboard(2)
  1274.  
  1275. @Outline2@<:#231,9025>hourglass(1)
  1276.  
  1277. @Outline2@<:#231,9025>fh = fopen(file, "r")
  1278.  
  1279. @Outline2@<:#231,9025>if fh << 1
  1280.  
  1281. @Outline2@<:#231,9025>    statusbarmsg("Imposible leer el archivo")
  1282.  
  1283. @Outline2@<:#231,9025>    hourglass(0)
  1284.  
  1285. @Outline2@<:#231,9025>    return -1
  1286.  
  1287. @Outline2@<:#231,9025>endif
  1288.  
  1289. @Outline2@<:#231,9025>onerror endit
  1290.  
  1291. @Outline2@<:#231,9025>oncancel endit
  1292.  
  1293. @Outline2@<:#231,9025>line = ""
  1294.  
  1295. @Outline2@<:#231,9025>b = mid$("<[><[>", 1, 1)
  1296.  
  1297. @Outline2@<:#231,9025>while (line <<<;> "{b}desc]")
  1298.  
  1299. @Outline2@<:#231,9025>    line = fgets$(fh)
  1300.  
  1301. @Outline2@<:#231,9025>    if line = -1
  1302.  
  1303. @Outline2@<:#231,9025>        fclose(fh)
  1304.  
  1305. @Outline2@<:#231,9025>        hourglass(0)
  1306.  
  1307. @Outline2@<:#231,9025>        return -1
  1308.  
  1309. @Outline2@<:#231,9025>    endif
  1310.  
  1311. @Outline2@<:#231,9025>wend
  1312.  
  1313. @Outline2@<:#231,9025>defstr ar;
  1314.  
  1315. @Outline2@<:#231,9025>again:
  1316.  
  1317. @Outline2@<:#231,9025>for i = 1 to 4
  1318.  
  1319. @Outline2@<:#231,9025>    fgets$(fh)
  1320.  
  1321. @Outline2@<:#231,9025>next
  1322.  
  1323. @Outline2@<:#231,9025>if assign(&ar, ucase$(strfield$(fgets$(fh), 2, "    "))) = "NOAUTORUN"
  1324.  
  1325. @Outline2@<:#231,9025>    stat = 0
  1326.  
  1327. @Outline2@<:#231,9025>else
  1328.  
  1329. @Outline2@<:#231,9025>    stat = 1
  1330.  
  1331. @Outline2@<:#231,9025>endif
  1332.  
  1333. @Outline2@<:#231,9025>endit:
  1334.  
  1335. @Outline2@<:#231,9025>fclose(fh)
  1336.  
  1337. @Outline2@<:#231,9025>hourglass(0)
  1338.  
  1339. @Outline2@<:#231,9025>return stat
  1340.  
  1341. @Outline2@<:#231,9025>end function
  1342.  
  1343. @Function@<:#293,9025>function GetName(hdlg, id, dummy)
  1344.  
  1345. @Outline2@<:#231,9025>text=getdlgitemtext(hdlg, id)
  1346.  
  1347. @Outline2@<:#231,9025>macname=strfield$(text, 2, "|")
  1348.  
  1349. @Outline2@<:#231,9025>setdlgitemtext(hdlg, 2, macname)
  1350.  
  1351. @Outline2@<:#231,9025>end function
  1352.  
  1353. @Function@<:#293,9025>Function LoadDocDesc(Descs)
  1354.  
  1355. @Outline2@<:#231,9025>Mac = GetMacPath$()
  1356.  
  1357. @Outline2@<:#231,9025>numfiles = countfiles("{mac}*.smm")
  1358.  
  1359. @Outline2@<:#231,9025>DefStr DInfo;
  1360.  
  1361. @Outline2@<:#231,9025>DefStr Id;
  1362.  
  1363. @Outline2@<:#231,9025>x=1
  1364.  
  1365. @Outline2@<:#231,9025>dir=Mac
  1366.  
  1367. @Outline2@<:#231,9025>switchkit = "SKDATA1.SMM SKDATA2.SMM SKAUTO.SMM SKEXIT.SMM"
  1368.  
  1369. @Outline2@<:#462,9025>dontuse = "AUTOCLOS.SMM AUTOOPEN.SMM AUTONEW.SMM AUTOEXIT.SMM AUTOEXEC.SMM"
  1370.  
  1371. @Outline2@<:#462,9025>moredonts="AUTOCAL.SMM TOAGEN.SMM TOALONG.SMM TOAREMOV.SMM TOASHORT.SMM FAX.SMM"
  1372.  
  1373. @Outline2@<:#231,9025>dontuse = strcat$(dontuse, switchkit, moredonts)
  1374.  
  1375. @Outline2@<:#231,9025>Name=FindFirst$("{Dir}*.smm",1)
  1376.  
  1377. @Outline2@<:#231,9025>    While Name<<<;>""
  1378.  
  1379. @Outline2@<:#231,9025>        StatusBarMsg("Se est<\a> cargando el archivo {x} de {numfiles}")
  1380.  
  1381. @Outline2@<:#231,9025>            If 0 != Assign(&Id,Fopen("{Dir}{Name}","r"))
  1382.  
  1383. @Outline2@<:#231,9025>                DInfo=GetDocInfo(Id)
  1384.  
  1385. @Outline2@<:#231,9025>                if DInfo != -1
  1386.  
  1387. @Outline2@<:#462,9025>                    Data = StrCat$(DInfo,"                                                                      |",Name)
  1388.  
  1389. @Outline2@<:#231,9025>                    if len(DInfo) <;> 1
  1390.  
  1391. @Outline2@<:#231,9025>                        if instr(0, dontuse, ucase$(Name)) = 0
  1392.  
  1393. @Outline2@<:#231,9025>                            ArrayInsert(&Descs,x,Data)
  1394.  
  1395. @Outline2@<:#231,9025>                            X=x+1
  1396.  
  1397. @Outline2@<:#231,9025>                        endif
  1398.  
  1399. @Outline2@<:#231,9025>                    endif
  1400.  
  1401. @Outline2@<:#231,9025>                endif
  1402.  
  1403. @Outline2@<:#231,9025>            Endif
  1404.  
  1405. @Outline2@<:#231,9025>        Fclose(id)
  1406.  
  1407. @Outline2@<:#231,9025>        Name=FindNext$()
  1408.  
  1409. @Outline2@<:#231,9025>    Wend
  1410.  
  1411. @Outline2@<:#231,9025>HourGlass(off)
  1412.  
  1413. @Outline2@<:#231,9025>StatusBarMsg("")
  1414.  
  1415. @Outline2@<:#231,9025>End Function
  1416.  
  1417. @Function@<:#293,9025>Function GetDocInfo(Fh)
  1418.  
  1419. @Outline2@<:#231,9025>DefStr Data, LocateDesc;
  1420.  
  1421. @Outline2@<:#284,9025><:f240,BArial,0,0,255>'SingleStep(on)<:f>
  1422.  
  1423. @Outline2@<:#231,9025>If "" = Assign(&Data, Fread(FH,500))
  1424.  
  1425. @Outline2@<:#231,9025>    Return ""
  1426.  
  1427. @Outline2@<:#231,9025>Endif
  1428.  
  1429. @Outline2@<:#231,9025>If 0 != Assign(&LocateDesc, instr(1, Data,"esc]"))
  1430.  
  1431. @Outline2@<:#231,9025>    Desc = Mid$(Data,LocateDesc,(LocateDesc + 384))
  1432.  
  1433. @Outline2@<:#231,9025>    RealDesc = StrField$(Desc, 2, "    ")
  1434.  
  1435. @Outline2@<:#231,9025>    autorunstat = StrField$(Desc, 6, "    ")
  1436.  
  1437. @Outline2@<:#231,9025>    if instr (0, lcase$(autorunstat), "noautorun") != 0
  1438.  
  1439. @Outline2@<:#231,9025>        Return -1
  1440.  
  1441. @Outline2@<:#231,9025>    endif
  1442.  
  1443. @Outline2@<:#231,9025>    lenRealDesc= len (RealDesc) - 1
  1444.  
  1445. @Outline2@<:#231,9025>    RealDesc = left$(RealDesc, lenRealDesc)
  1446.  
  1447. @Outline2@<:#231,9025>    RealDesc = left$(RealDesc, 80)
  1448.  
  1449. @Outline2@<:#231,9025>    Return RealDesc
  1450.  
  1451. @Outline2@<:#231,9025>Endif
  1452.  
  1453. @Outline2@<:#231,9025>End Function
  1454.  
  1455. @Function@<:#293,9025>function countfiles(filespec)
  1456.  
  1457. @Outline2@<:#231,9025>name = findfirst$(filespec, 1)
  1458.  
  1459. @Outline2@<:#231,9025>while name <<<;> ""
  1460.  
  1461. @Outline2@<:#231,9025>    count = count +1 
  1462.  
  1463. @Outline2@<:#231,9025>name = findnext$()
  1464.  
  1465. @Outline2@<:#231,9025>wend
  1466.  
  1467. @Outline2@<:#231,9025>return count
  1468.  
  1469. @Outline2@<:#231,9025>end function
  1470.  
  1471. @Function@<:#293,9025>function zproglod()
  1472.  
  1473. @Outline2@<:#231,9025>defstr macro;
  1474.  
  1475. @Outline2@<:#231,9025>rmac=GetRunningMacroFile$()
  1476.  
  1477. @Outline2@<:#231,9025>pause(001)
  1478.  
  1479. @Outline2@<:#231,9025>ignorekeyboard(2)
  1480.  
  1481. @Outline2@<:#231,9025>curauto = lcase$(getprofilestring$("amipro", "automacroload", "amipro.ini"))
  1482.  
  1483. @Outline2@<:#231,9025>if "_autorun.smm!zrunmacs" = assign(¯o, strfield$(curauto, 2, ","))
  1484.  
  1485. @Outline2@<:#231,9025>    return 1
  1486.  
  1487. @Outline2@<:#231,9025>elseif "zrunmacs.smm" = assign(¯o, strfield$(curauto, 2, ","))
  1488.  
  1489. @Outline2@<:#231,9025>    writeprofilestring("amipro", "automacroload", "1,_autorun.smm!zrunmacs", "amipro.ini")
  1490.  
  1491. @Outline2@<:#231,9025>    return 1
  1492.  
  1493. @Outline2@<:#231,9025>endif
  1494.  
  1495. @Outline2@<:#231,9025>if 1 = strfield$(curauto, 1, ",")
  1496.  
  1497. @Outline2@<:#231,9025>    call zmkauto(macro)
  1498.  
  1499. @Outline2@<:#231,9025>endif
  1500.  
  1501. @Outline2@<:#231,9025>writeprofilestring("amipro", "automacroload", "1,_autorun.smm!zrunmacs", "amipro.ini")
  1502.  
  1503. @Outline2@<:#231,9025>end function
  1504.  
  1505. @Function@<:#293,9025>FUNCTION zmkauto(macro)
  1506.  
  1507. @Outline2@<:#231,9025>defstr autos;
  1508.  
  1509. @Outline2@<:#231,9025>ignorekeyboard(2)
  1510.  
  1511. @Outline2@<:#231,9025>windir = getwindowsdirectory$()
  1512.  
  1513. @Outline2@<:#231,9025>autofile = strcat$(windir, "amiauto.cfg")
  1514.  
  1515. @Outline2@<:#231,9025>ck = findfirst$(autofile, 33)
  1516.  
  1517. @Outline2@<:#231,9025>if ck = ""
  1518.  
  1519. @Outline2@<:#231,9025>    fh = fopen(autofile, "w")
  1520.  
  1521. @Outline2@<:#231,9025>    if fh << 1
  1522.  
  1523. @Outline2@<:#231,9025>        message("Imposible crear el archivo AMIAUTO.CFG.")
  1524.  
  1525. @Outline2@<:#231,9025>        return -1
  1526.  
  1527. @Outline2@<:#231,9025>    endif
  1528.  
  1529. @Outline2@<:#231,9025>    fclose(fh)
  1530.  
  1531. @Outline2@<:#231,9025>endif
  1532.  
  1533. @Outline2@<:#231,9025>fh = fopen(autofile, "r")
  1534.  
  1535. @Outline2@<:#231,9025>if fh << 1
  1536.  
  1537. @Outline2@<:#231,9025>    message("Imposible leer el archivo AMIAUTO.CFG.")
  1538.  
  1539. @Outline2@<:#231,9025>    return -1
  1540.  
  1541. @Outline2@<:#231,9025>endif
  1542.  
  1543. @Outline2@<:#231,9025>while (1)
  1544.  
  1545. @Outline2@<:#231,9025>    if assign(&autos, fgets$(fh)) <;> 0
  1546.  
  1547. @Outline2@<:#231,9025>        if lcase$(macro) = lcase$(autos)
  1548.  
  1549. @Outline2@<:#231,9025>'            message("{macro} ya es una macro de ejecuci<\s>n autom<\a>tica.")
  1550.  
  1551. @Outline2@<:#231,9025>            return 0
  1552.  
  1553. @Outline2@<:#231,9025>        endif
  1554.  
  1555. @Outline2@<:#231,9025>    else
  1556.  
  1557. @Outline2@<:#231,9025>        break
  1558.  
  1559. @Outline2@<:#231,9025>    endif
  1560.  
  1561. @Outline2@<:#231,9025>wend
  1562.  
  1563. @Outline2@<:#231,9025>fclose(fh)
  1564.  
  1565. @Outline2@<:#231,9025>fh = fopen(autofile, "a")
  1566.  
  1567. @Outline2@<:#231,9025>if fh << 1
  1568.  
  1569. @Outline2@<:#231,9025>    message("Imposible abrir el archivo AMIAUTO.CFG.")
  1570.  
  1571. @Outline2@<:#231,9025>    return -1
  1572.  
  1573. @Outline2@<:#231,9025>endif
  1574.  
  1575. @Outline2@<:#231,9025>fputs(fh, lcase$(macro))
  1576.  
  1577. @Outline2@<:#231,9025>fclose(fh)
  1578.  
  1579. @Outline2@<:#231,9025>call zproglod()
  1580.  
  1581. @Outline2@<:#231,9025>return 1
  1582.  
  1583. @Outline2@<:#231,9025>end function
  1584.  
  1585. @Function@<:#293,9025>function zrunmacs()
  1586.  
  1587. @Outline2@<:#231,9025>'singlestep(1)
  1588.  
  1589. @Outline2@<:#231,9025>ignorekeyboard(2)
  1590.  
  1591. @Subhead@<:#231,9025>windir = getwindowsdirectory$()
  1592.  
  1593. @Subhead@<:#231,9025>autofile = strcat$(windir, "amiauto.cfg")
  1594.  
  1595. @Outline2@<:#231,9025>ck = findfirst$(autofile, 33)
  1596.  
  1597. @Outline2@<:#231,9025>if ck = ""
  1598.  
  1599. @Outline2@<:#231,9025>    exit function
  1600.  
  1601. @Outline2@<:#231,9025>endif
  1602.  
  1603. @Outline2@<:#231,9025>fh = fopen(autofile, "r")
  1604.  
  1605. @Outline2@<:#231,9025>if fh << 1
  1606.  
  1607. @Outline2@<:#231,9025>    message("Imposible abrir el archivo AMIAUTO.CFG")
  1608.  
  1609. @Outline2@<:#231,9025>    return -1
  1610.  
  1611. @Outline2@<:#231,9025>endif
  1612.  
  1613. @Outline2@<:#231,9025>onerror endit
  1614.  
  1615. @Outline2@<:#231,9025>oncancel endit
  1616.  
  1617. @Outline2@<:#231,9025>dim files(100)
  1618.  
  1619. @Outline2@<:#231,9025>i = 0
  1620.  
  1621. @Outline2@<:#231,9025>while (1)
  1622.  
  1623. @Outline2@<:#231,9025>    txt = fgets$(fh)
  1624.  
  1625. @Outline2@<:#231,9025>    if txt = -1
  1626.  
  1627. @Outline2@<:#231,9025>        break
  1628.  
  1629. @Outline2@<:#231,9025>    endif
  1630.  
  1631. @Outline2@<:#231,9025>    if txt <<<;> ""
  1632.  
  1633. @Outline2@<:#231,9025>        i = i + 1
  1634.  
  1635. @Outline2@<:#231,9025>        files(i) = txt
  1636.  
  1637. @Outline2@<:#231,9025>    endif
  1638.  
  1639. @Outline2@<:#231,9025>wend
  1640.  
  1641. @Outline2@<:#231,9025>endit:
  1642.  
  1643. @Outline2@<:#231,9025>fclose(fh)
  1644.  
  1645. @Outline2@<:#231,9025>for j = 1 to i
  1646.  
  1647. @Outline2@<:#231,9025>    txt = files(j)
  1648.  
  1649. @Outline2@<:#231,9025>    calli txt()
  1650.  
  1651. @Outline2@<:#231,9025>next
  1652.  
  1653. @Outline2@<:#231,9025>end function
  1654.  
  1655. >
  1656.  
  1657. [Embedded]
  1658. 00036378
  1659. >
  1660. [macsum] 24
  1661. info 0 0 29 21
  1662. PreBuild 3359 3 5 172
  1663. UngrayButtons 3789 1 1 187
  1664. freeit 3974 0 1 194
  1665. saveit 4028 1 1 198
  1666. showdesc 4082 3 5 203
  1667. sorttype 4272 3 2 217
  1668. showfiles 4675 0 -1 231
  1669. add 5645 1 6 252
  1670. del 6378 1 7 281
  1671. helpme 7051 1 2 312
  1672. help 7100 0 -1 315
  1673. loadlist 7645 0 8 324
  1674. savelist 8231 0 7 360
  1675. zgood 8724 1 4 385
  1676. cwp 9172 1 2 405
  1677. ckauto 9724 1 7 432
  1678. GetName 10356 3 3 468
  1679. LoadDocDesc 10454 1 12 473
  1680. GetDocInfo 11349 1 7 505
  1681. countfiles 11801 1 3 524
  1682. zproglod 11943 0 4 532
  1683. zmkauto 12477 1 6 549
  1684. zrunmacs 13236 0 9 589
  1685. [macse]
  1686. 14 info
  1687. 0 32 2
  1688. 0 296 1
  1689. 5 1
  1690. 21 3 [X]
  1691. 0 802
  1692. 13
  1693. 8 4
  1694. 0 295
  1695. 13
  1696. 8 5
  1697. 16 countfiles "{5}*.smm"
  1698. 13
  1699. 8 6
  1700. 0 271 "DescAndName" "{6}"
  1701. 13
  1702. 8 7
  1703. 0 265 "DescAndName"
  1704. 13
  1705. 7 ""
  1706. 18 0
  1707. 11 00000617
  1708. 5 0
  1709. 16 LoadDocDesc &3
  1710. 13
  1711. 0 805 &1 [X]
  1712. 13
  1713. 18 0
  1714. 11 00000272
  1715. 10 00000272
  1716. 0 266 "DescAndName"
  1717. 0 1046 &3
  1718. 13
  1719. 8 8
  1720. 6 8
  1721. 5 1
  1722. 3 0
  1723. 8 8
  1724. 0 271 "DescAndName" "{8}"
  1725. 0 272 "DescAndName" 1 "{8}"
  1726. 5 2
  1727. 8 9
  1728. 6 8
  1729. 5 1
  1730. 3 1
  1731. 6 9
  1732. 18 2
  1733. 12 00000484
  1734. 10 00000604
  1735. 5 1
  1736. 6 9
  1737. 3 0
  1738. 8 9
  1739. 10 00000399
  1740. 6 8
  1741. 6 9
  1742. 3 1
  1743. 8 10
  1744. 0 789 "Archivos existentes: {10}"
  1745. 6 9
  1746. 22 3
  1747. 8 11
  1748. 0 272 "DescAndName" "{9}" "{11}"
  1749. 10 00000451
  1750. 10 00000908
  1751. 0 273 "DescAndName" 1
  1752. 13
  1753. 8 6
  1754. 5 1
  1755. 8 9
  1756. 6 6
  1757. 6 9
  1758. 18 2
  1759. 12 00000734
  1760. 10 00000908
  1761. 5 1
  1762. 6 9
  1763. 3 0
  1764. 8 9
  1765. 10 00000659
  1766. 6 6
  1767. 6 9
  1768. 3 1
  1769. 8 10
  1770. 0 789 "Archivos existentes: {10}"
  1771. 6 9
  1772. 5 1
  1773. 3 0
  1774. 0 273 "DescAndName" [X]
  1775. 13
  1776. 8 11
  1777. 6 11
  1778. 7 ""
  1779. 18 1
  1780. 11 00000895
  1781. 0 1041 &3 "{9}" "{11}"
  1782. 10 00000701
  1783. 0 789 ""
  1784. 0 1046 &3
  1785. 13
  1786. 8 12
  1787. 6 12
  1788. 21 13 [X]
  1789. 5 1
  1790. 8 9
  1791. 6 12
  1792. 6 9
  1793. 18 2
  1794. 12 00001042
  1795. 10 00001134
  1796. 5 1
  1797. 6 9
  1798. 3 0
  1799. 8 9
  1800. 10 00000966
  1801. 6 9
  1802. 22 3
  1803. 0 20 [X] 2 "|"
  1804. 13
  1805. 0 16 [X] "!" "{9}"
  1806. 13
  1807. 8 14
  1808. 6 9
  1809. 6 14
  1810. 23 13
  1811. 10 00001009
  1812. 0 1043 &13
  1813. 6 12
  1814. 21 15 [X]
  1815. 5 1
  1816. 8 9
  1817. 6 12
  1818. 6 9
  1819. 18 2
  1820. 12 00001249
  1821. 10 00001324
  1822. 5 1
  1823. 6 9
  1824. 3 0
  1825. 8 9
  1826. 10 00001173
  1827. 6 9
  1828. 22 13
  1829. 0 20 [X] 2 "!"
  1830. 13
  1831. 8 16
  1832. 6 9
  1833. 6 16
  1834. 22 3
  1835. 23 15
  1836. 10 00001216
  1837. 5 1
  1838. 8 9
  1839. 6 12
  1840. 6 9
  1841. 18 2
  1842. 12 00001410
  1843. 10 00001446
  1844. 5 1
  1845. 6 9
  1846. 3 0
  1847. 8 9
  1848. 10 00001334
  1849. 6 9
  1850. 6 9
  1851. 22 15
  1852. 23 3
  1853. 10 00001377
  1854. 0 31 9000 &3
  1855. 0 271 "loadem" 100
  1856. 0 271 "count" 1
  1857. 0 264 "count" 1
  1858. 20 00003195
  1859. 19 00003195
  1860. 0 271 "Setfont:hFont" 1
  1861. 0 265 "Setfont:hFont"
  1862. 13
  1863. 7 ""
  1864. 18 1
  1865. 11 00001617
  1866. 0 31 20 1
  1867. 0 47 112 "{4}!helpme"
  1868. 0 41 9000 "{4}!showdesc"
  1869. 0 41 9003 "{4}!showdesc"
  1870. 0 41 70 "{4}!Add"
  1871. 0 41 71 "{4}!Del"
  1872. 0 41 77 "{4}!cwp"
  1873. 0 41 20 "{4}!sorttype"
  1874. 0 41 0 "{4}!PreBuild"
  1875. 16 loadlist
  1876. 0 26 "." "showfiles"
  1877. 13
  1878. 8 17
  1879. 5 0
  1880. 6 17
  1881. 18 0
  1882. 11 00001908
  1883. 10 00003195
  1884. 10 00003195
  1885. 5 4
  1886. 6 17
  1887. 18 0
  1888. 11 00001987
  1889. 16 savelist
  1890. 16 freeit
  1891. 6 0
  1892. 15
  1893. 9
  1894. 10 00003195
  1895. 5 3
  1896. 6 17
  1897. 18 0
  1898. 11 00002334
  1899. 16 savelist
  1900. 16 freeit
  1901. 0 27 9000
  1902. 13
  1903. 8 18
  1904. 0 20 "{18}" 2 "|"
  1905. 13
  1906. 8 19
  1907. 0 18 "{19}"
  1908. 13
  1909. 8 5
  1910. 6 5
  1911. 0 18 "_info.smm"
  1912. 13
  1913. 18 0
  1914. 11 00002208
  1915. 0 3 "Ya se est<\a> ejecutando {5}"
  1916. 10 00002297
  1917. 0 2 "Run the macro ""{5}""?"
  1918. 13
  1919. 8 20
  1920. 6 20
  1921. 5 1
  1922. 18 0
  1923. 11 00002297
  1924. 0 296 0
  1925. 16 "{5}"
  1926. 0 285 "{4}" "00:00.02"
  1927. 10 00003195
  1928. 5 1
  1929. 6 17
  1930. 18 0
  1931. 11 00003195
  1932. 16 savelist
  1933. 16 freeit
  1934. 0 1050
  1935. 13
  1936. 0 805 &21 [X]
  1937. 13
  1938. 5 1
  1939. 18 5
  1940. 11 00002456
  1941. 10 00002771
  1942. 6 21
  1943. 21 22 [X]
  1944. 0 1051 &22
  1945. 5 0
  1946. 8 23
  1947. 5 1
  1948. 8 9
  1949. 6 21
  1950. 6 9
  1951. 18 2
  1952. 12 00002582
  1953. 10 00002700
  1954. 5 1
  1955. 6 9
  1956. 3 0
  1957. 8 9
  1958. 10 00002506
  1959. 6 9
  1960. 22 22
  1961. 0 17 [X]
  1962. 13
  1963. 0 808 1 [X] "goodies.sam"
  1964. 13
  1965. 5 0
  1966. 18 3
  1967. 11 00002687
  1968. 5 1
  1969. 8 23
  1970. 10 00002700
  1971. 10 00002549
  1972. 6 23
  1973. 5 0
  1974. 18 0
  1975. 11 00002929
  1976. 5 1
  1977. 8 24
  1978. 6 21
  1979. 5 1
  1980. 18 5
  1981. 11 00002854
  1982. 0 286 "amipro" "defstyle" "amipro.ini"
  1983. 13
  1984. 8 25
  1985. 2 101 1 "{25}" 0 0
  1986. 5 129
  1987. 8 24
  1988. 0 268
  1989. 13
  1990. 0 16 [X] "goodies.sam"
  1991. 13
  1992. 2 102 1 [X] "{24}" ""
  1993. 10 00002960
  1994. 0 1029 "goodies.sam"
  1995. 2 210 1
  1996. 0 27 9000
  1997. 13
  1998. 8 18
  1999. 0 20 "{18}" 2 "|"
  2000. 13
  2001. 0 18 [X]
  2002. 13
  2003. 8 19
  2004. 0 1049 "{19}"
  2005. 13
  2006. 8 26
  2007. 2 488 1 0 0 8197 "{19}" ""
  2008. 0 6 "[27]"
  2009. 0 7 "Seleccione continuar para volver a Ejecuci<\s>n autom<\a>tica."
  2010. 0 285 "{4}" "00:00.02"
  2011. 6 0
  2012. 15
  2013. 9
  2014. 16 freeit
  2015. 0 265 "Setfont:hFont"
  2016. 13
  2017. 8 27
  2018. 5 0
  2019. 6 27
  2020. 18 1
  2021. 11 00003305
  2022. 0 284 "gdi,DeleteObject,HH" "{27}"
  2023. 0 266 "Setfont:hFont"
  2024. 13
  2025. 8 28
  2026. 0 296 0
  2027. 6 0
  2028. 15
  2029. 9
  2030. 14 PreBuild
  2031. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  2032. 13
  2033. 8 4
  2034. 6 4
  2035. 11 00000370
  2036. 0 44 "{0}" 9000
  2037. 13
  2038. 8 5
  2039. 0 44 "{0}" 9002
  2040. 13
  2041. 8 6
  2042. 0 44 "{0}" 8007
  2043. 13
  2044. 8 7
  2045. 0 284 "user,SendMessage,HHHHJ" "{5}" 48 "{4}" 0
  2046. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0
  2047. 0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{4}" 0
  2048. 0 264 "Setfont:hFont" "{4}"
  2049. 16 UngrayButtons "{0}"
  2050. 16 sorttype "{0}" 20 1
  2051. 6 3
  2052. 15
  2053. 9
  2054. 14 UngrayButtons
  2055. 0 44 "{0}" 71
  2056. 13
  2057. 0 284 "user,EnableWindow,HHH" [X] 0
  2058. 0 265 "count"
  2059. 13
  2060. 5 0
  2061. 18 3
  2062. 11 00000173
  2063. 0 44 "{0}" 71
  2064. 13
  2065. 0 284 "user,EnableWindow,HHH" [X] 1
  2066. 6 1
  2067. 15
  2068. 9
  2069. 14 freeit
  2070. 0 266 "loadem"
  2071. 0 266 "count"
  2072. 6 0
  2073. 15
  2074. 9
  2075. 14 saveit
  2076. 0 296 1
  2077. 16 savelist
  2078. 0 296 0
  2079. 6 1
  2080. 15
  2081. 9
  2082. 14 showdesc
  2083. 0 32 2
  2084. 0 296 1
  2085. 0 42 "{0}" "{1}"
  2086. 13
  2087. 8 5
  2088. 0 20 "{5}" 2 "|"
  2089. 13
  2090. 0 17 [X]
  2091. 13
  2092. 8 6
  2093. 20 00000157
  2094. 19 00000157
  2095. 0 43 "{0}" 8007 "{6}"
  2096. 5 1
  2097. 8 7
  2098. 0 296 0
  2099. 6 7
  2100. 15
  2101. 9
  2102. 6 3
  2103. 15
  2104. 9
  2105. 14 sorttype
  2106. 0 42 "{0}" 20
  2107. 13
  2108. 8 4
  2109. 6 4
  2110. 5 1
  2111. 18 0
  2112. 11 00000235
  2113. 0 44 "{0}" 9003
  2114. 13
  2115. 0 284 "User,ShowWindow,AHH" [X] 0
  2116. 0 44 "{0}" 9000
  2117. 13
  2118. 0 284 "User,ShowWindow,AHH" [X] 1
  2119. 5 9000
  2120. 8 1
  2121. 16 showdesc "{0}" "{1}" "{2}"
  2122. 10 00000391
  2123. 0 44 "{0}" 9000
  2124. 13
  2125. 0 284 "User,ShowWindow,AHH" [X] 0
  2126. 0 44 "{0}" 9003
  2127. 13
  2128. 0 284 "User,ShowWindow,AHH" [X] 1
  2129. 5 9003
  2130. 8 1
  2131. 16 showdesc "{0}" "{1}" "{2}"
  2132. 6 3
  2133. 15
  2134. 9
  2135. DIALOG showfiles
  2136. -2134376448 17 19 44 280 140 "" "AmiDialog" "Ejecuci≤n automßtica de macros" 
  2137. FONT 8 "Helv" 
  2138. 6 3 60 8 1000 1342308352 "static" "Ma&cros:" 0 
  2139. 6 12 155 111 9003 1352728577 "listbox" "" 0 
  2140. 6 12 155 111 9000 1352728577 "listbox" "" 0 
  2141. 164 93 44 14 70 1342373888 "button" "&Instalar >>" 0 
  2142. 164 110 44 14 71 1342242816 "button" "<< Eli&minar" 0 
  2143. 212 66 46 8 1001 1342308352 "static" "I&nstaladas:" 0 
  2144. 212 75 60 53 9002 1352728577 "listbox" "" 0 
  2145. 232 3 42 14 4 1342373888 "button" "Aceptar" 0 
  2146. 232 19 42 14 2 1342373888 "button" "Cancelar" 0 
  2147. 232 35 42 14 1 1342373889 "button" "&Detalles..." 0 
  2148. 232 51 42 14 3 1342373888 "button" "&Ejecutar..." 0 
  2149. 263 292 0 0 77 1342177280 "button" "&z" 0 
  2150. 75 128 70 10 8007 1342177280 "static" "" 0 
  2151. 65 1 1 1 8013 1342177280 "static" "" 0 
  2152. 34 3 110 8 8777 1342177281 "static" "" 0 
  2153. 6 128 65 10 1002 1342177280 "static" "Nombre de archivo:" 0 
  2154. 14 290 0 0 20 1342242819 "button" "mostrar descripciones" 0 
  2155. 14 add
  2156. 0 32 2
  2157. 0 296 1
  2158. 0 42 "{0}" 9000
  2159. 13
  2160. 8 3
  2161. 0 20 "{3}" 2 "|"
  2162. 13
  2163. 0 17 [X]
  2164. 13
  2165. 8 4
  2166. 0 17 "{4}"
  2167. 13
  2168. 16 ckauto [X]
  2169. 13
  2170. 5 1
  2171. 18 1
  2172. 11 00000163
  2173. 5 0
  2174. 15
  2175. 9
  2176. 0 265 "count"
  2177. 13
  2178. 8 5
  2179. 5 1
  2180. 8 6
  2181. 6 5
  2182. 6 6
  2183. 18 2
  2184. 12 00000272
  2185. 10 00000448
  2186. 5 1
  2187. 6 6
  2188. 3 0
  2189. 8 6
  2190. 10 00000197
  2191. 6 4
  2192. 7 ""
  2193. 18 1
  2194. 11 00000435
  2195. 6 4
  2196. 0 273 "loadem" "{6}"
  2197. 13
  2198. 0 17 [X]
  2199. 13
  2200. 18 0
  2201. 11 00000435
  2202. 0 3 "That macro is already set to ""AutoRun"""
  2203. 0 296 0
  2204. 5 1
  2205. 15
  2206. 9
  2207. 10 00000239
  2208. 0 43 "{0}" 9002 "{4}"
  2209. 0 44 "{0}" 71
  2210. 13
  2211. 0 284 "user,EnableWindow,HHH" [X] 1
  2212. 0 265 "count"
  2213. 13
  2214. 5 1
  2215. 3 0
  2216. 8 5
  2217. 0 272 "loadem" "{5}" "{4}"
  2218. 0 264 "count" "{5}"
  2219. 0 42 "{0}" 9002
  2220. 13
  2221. 7 ""
  2222. 18 0
  2223. 11 00000712
  2224. 0 44 "{0}" 71
  2225. 13
  2226. 0 284 "user,EnableWindow,HHH" [X] 0
  2227. 0 296 0
  2228. 6 1
  2229. 15
  2230. 9
  2231. 14 del
  2232. 0 32 2
  2233. 0 296 1
  2234. 0 42 "{0}" 9002
  2235. 13
  2236. 8 2
  2237. 6 2
  2238. 7 ""
  2239. 18 0
  2240. 11 00000093
  2241. 5 0
  2242. 15
  2243. 9
  2244. 0 44 "{0}" 9002
  2245. 13
  2246. 8 3
  2247. 0 1036 "{3}" 1029 0 0
  2248. 0 265 "count"
  2249. 13
  2250. 8 4
  2251. 6 4
  2252. 5 0
  2253. 18 0
  2254. 11 00000263
  2255. 0 44 "{0}" 71
  2256. 13
  2257. 0 284 "user,EnableWindow,HHH" [X] 0
  2258. 5 0
  2259. 15
  2260. 9
  2261. 5 1
  2262. 8 5
  2263. 6 4
  2264. 6 5
  2265. 18 2
  2266. 12 00000348
  2267. 10 00000540
  2268. 5 1
  2269. 6 5
  2270. 3 0
  2271. 8 5
  2272. 10 00000273
  2273. 0 273 "loadem" "{5}"
  2274. 13
  2275. 8 6
  2276. 6 6
  2277. 6 2
  2278. 18 0
  2279. 11 00000446
  2280. 0 272 "loadem" "{5}" ""
  2281. 10 00000527
  2282. 6 6
  2283. 7 ""
  2284. 18 1
  2285. 11 00000499
  2286. 0 43 "{0}" 9002 "{6}"
  2287. 0 272 "loadem" "{5}" "{6}"
  2288. 10 00000315
  2289. 0 296 0
  2290. 0 42 "{0}" 9002
  2291. 13
  2292. 8 7
  2293. 6 7
  2294. 7 ""
  2295. 18 0
  2296. 11 00000661
  2297. 0 44 "{0}" 71
  2298. 13
  2299. 0 284 "user,EnableWindow,HHH" [X] 0
  2300. 6 1
  2301. 15
  2302. 9
  2303. 14 helpme
  2304. 0 26 "." "help"
  2305. 13
  2306. 8 2
  2307. 6 1
  2308. 15
  2309. 9
  2310. DIALOG help
  2311. -2134376448 5 60 30 160 124 "" "" "Informaci≤n de ayuda" 
  2312. FONT 8 "Helv" 
  2313. 60 105 40 14 1 1342242817 "button" "Aceptar" 0 
  2314. 11 22 138 25 1001 1342177280 "static" "Seleccione una funci≤n y seleccione  Instalar para que se ejecute automßticamente." 0 
  2315. 6 7 148 89 80 1342177287 "button" "Instalaci≤n de macro" 0 
  2316. 11 49 138 18 1002 1342177280 "static" "Seleccione Detalles para ver informaci≤n detallada sobre una funci≤n." 0 
  2317. 11 70 138 18 1000 1342177280 "static" "Para ver una demostraci≤n de la funci≤n, seleccione Ejecutar." 0 
  2318. 14 loadlist
  2319. 0 32 2
  2320. 0 296 1
  2321. 0 1288
  2322. 13
  2323. 8 1
  2324. 0 16 "{1}" "amiauto.cfg"
  2325. 13
  2326. 8 2
  2327. 0 280 "{2}" 33
  2328. 13
  2329. 8 3
  2330. 6 3
  2331. 7 ""
  2332. 18 0
  2333. 11 00000162
  2334. 7 "w"
  2335. 8 4
  2336. 10 00000174
  2337. 7 "r"
  2338. 8 4
  2339. 0 259 "{2}" "{4}"
  2340. 13
  2341. 8 5
  2342. 6 5
  2343. 5 1
  2344. 18 5
  2345. 11 00000290
  2346. 0 3 "Imposible crear el archivo AMIAUTO.CFG"
  2347. 5 -1
  2348. 15
  2349. 9
  2350. 6 4
  2351. 7 "w"
  2352. 18 0
  2353. 11 00000334
  2354. 10 00000531
  2355. 20 00000531
  2356. 19 00000531
  2357. 5 0
  2358. 8 6
  2359. 5 1
  2360. 11 00000531
  2361. 0 257 "{5}"
  2362. 13
  2363. 8 7
  2364. 6 7
  2365. 5 -1
  2366. 18 0
  2367. 11 00000453
  2368. 10 00000531
  2369. 6 6
  2370. 5 1
  2371. 3 0
  2372. 8 6
  2373. 0 272 "loadem" "{6}" "{7}"
  2374. 0 31 9002 "{7}"
  2375. 10 00000370
  2376. 0 260 "{5}"
  2377. 0 264 "count" "{6}"
  2378. 0 296 0
  2379. 6 0
  2380. 15
  2381. 9
  2382. 14 savelist
  2383. 0 32 2
  2384. 0 296 1
  2385. 0 1288
  2386. 13
  2387. 8 1
  2388. 0 16 "{1}" "amiauto.cfg"
  2389. 13
  2390. 8 2
  2391. 0 259 "{2}" "w"
  2392. 13
  2393. 8 4
  2394. 6 4
  2395. 5 1
  2396. 18 5
  2397. 11 00000207
  2398. 0 3 "Imposible guardar el archivo AMIAUTO.CFG"
  2399. 0 296 0
  2400. 5 -1
  2401. 15
  2402. 9
  2403. 20 00000443
  2404. 19 00000443
  2405. 0 265 "count"
  2406. 13
  2407. 8 5
  2408. 5 1
  2409. 8 6
  2410. 6 5
  2411. 6 6
  2412. 18 2
  2413. 12 00000342
  2414. 10 00000443
  2415. 5 1
  2416. 6 6
  2417. 3 0
  2418. 8 6
  2419. 10 00000267
  2420. 0 273 "loadem" "{6}"
  2421. 13
  2422. 0 805 &3 [X]
  2423. 13
  2424. 7 ""
  2425. 18 1
  2426. 11 00000430
  2427. 0 258 "{4}" "{3}"
  2428. 10 00000309
  2429. 0 260 "{4}"
  2430. 0 296 0
  2431. 16 zproglod ""
  2432. 6 0
  2433. 15
  2434. 9
  2435. 14 zgood
  2436. 0 806 "{0}" 2
  2437. 13
  2438. 8 2
  2439. 0 14 "{0}"
  2440. 13
  2441. 0 15 "{0}" 3 [X]
  2442. 13
  2443. 8 3
  2444. 7 "td"
  2445. 6 2
  2446. 18 0
  2447. 11 00000132
  2448. 16 "{3}"
  2449. 10 00000436
  2450. 7 "ar"
  2451. 6 2
  2452. 18 0
  2453. 11 00000387
  2454. 16 ckauto "{3}"
  2455. 13
  2456. 8 4
  2457. 6 4
  2458. 5 1
  2459. 18 1
  2460. 11 00000276
  2461. 0 3 "{3} no se ejecuta autom<\a>ticamente"
  2462. 5 -1
  2463. 15
  2464. 9
  2465. 16 zmkauto "{3}"
  2466. 13
  2467. 5 1
  2468. 18 0
  2469. 11 00000374
  2470. 0 3 "{3} instalada en Ejecuci<\s>n autom<\a>tica."
  2471. 10 00000436
  2472. 7 "si"
  2473. 6 2
  2474. 18 0
  2475. 11 00000436
  2476. 16 _autorun.smm
  2477. 6 1
  2478. 15
  2479. 9
  2480. 14 cwp
  2481. 5 004
  2482. 8 2
  2483. 0 43 "{0}" 8777 "-->> Pete <<<<--"
  2484. 0 274 "{2}"
  2485. 0 43 "{0}" 8777 "Mark Osborne"
  2486. 0 274 "{2}"
  2487. 0 43 "{0}" 8777 "Peter Housley"
  2488. 0 274 "{2}"
  2489. 0 43 "{0}" 8777 "Hugh Marlor"
  2490. 0 274 "{2}"
  2491. 0 43 "{0}" 8777 "John McDaniel"
  2492. 0 274 "{2}"
  2493. 0 43 "{0}" 8777 "Peyton McManus"
  2494. 0 274 "{2}"
  2495. 0 43 "{0}" 8777 "Robert Pernett"
  2496. 0 274 "{2}"
  2497. 0 43 "{0}" 8777 "Powell Smith"
  2498. 0 274 "{2}"
  2499. 0 43 "{0}" 8777 "Sandra Wilson"
  2500. 0 274 "{2}"
  2501. 0 43 "{0}" 8777 "David Zoller"
  2502. 0 274 "{2}"
  2503. 0 43 "{0}" 8777 "Charlie Pappas"
  2504. 0 274 "{2}"
  2505. 10 00000008
  2506. 6 1
  2507. 15
  2508. 9
  2509. 14 ckauto
  2510. 0 32 2
  2511. 0 296 1
  2512. 0 259 "{0}" "r"
  2513. 13
  2514. 8 2
  2515. 6 2
  2516. 5 1
  2517. 18 5
  2518. 11 00000140
  2519. 0 789 "Imposible leer el archivo"
  2520. 0 296 0
  2521. 5 -1
  2522. 15
  2523. 9
  2524. 20 00000586
  2525. 19 00000586
  2526. 7 ""
  2527. 8 3
  2528. 0 15 "[[" 1 1
  2529. 13
  2530. 8 4
  2531. 6 3
  2532. 7 "{4}desc]"
  2533. 18 1
  2534. 11 00000339
  2535. 0 257 "{2}"
  2536. 13
  2537. 8 3
  2538. 6 3
  2539. 5 -1
  2540. 18 0
  2541. 11 00000326
  2542. 0 260 "{2}"
  2543. 0 296 0
  2544. 5 -1
  2545. 15
  2546. 9
  2547. 10 00000201
  2548. 5 1
  2549. 8 6
  2550. 5 4
  2551. 6 6
  2552. 18 2
  2553. 12 00000424
  2554. 10 00000450
  2555. 5 1
  2556. 6 6
  2557. 3 0
  2558. 8 6
  2559. 10 00000349
  2560. 0 257 "{2}"
  2561. 10 00000391
  2562. 0 257 "{2}"
  2563. 13
  2564. 0 20 [X] 2 "    "
  2565. 13
  2566. 0 18 [X]
  2567. 13
  2568. 0 805 &5 [X]
  2569. 13
  2570. 7 "NOAUTORUN"
  2571. 18 0
  2572. 11 00000576
  2573. 5 0
  2574. 8 7
  2575. 10 00000586
  2576. 5 1
  2577. 8 7
  2578. 0 260 "{2}"
  2579. 0 296 0
  2580. 6 7
  2581. 15
  2582. 9
  2583. 6 1
  2584. 15
  2585. 9
  2586. 14 GetName
  2587. 0 42 "{0}" "{1}"
  2588. 13
  2589. 8 4
  2590. 0 20 "{4}" 2 "|"
  2591. 13
  2592. 8 5
  2593. 0 43 "{0}" 2 "{5}"
  2594. 6 3
  2595. 15
  2596. 9
  2597. 14 LoadDocDesc
  2598. 0 295
  2599. 13
  2600. 8 2
  2601. 16 countfiles "{2}*.smm"
  2602. 13
  2603. 8 3
  2604. 5 1
  2605. 8 6
  2606. 6 2
  2607. 8 7
  2608. 7 "SKDATA1.SMM SKDATA2.SMM SKAUTO.SMM SKEXIT.SMM"
  2609. 8 8
  2610. 7 "AUTOCLOS.SMM AUTOOPEN.SMM AUTONEW.SMM AUTOEXIT.SMM AUTOEXEC.SMM"
  2611. 8 9
  2612. 7 "AUTOCAL.SMM TOAGEN.SMM TOALONG.SMM TOAREMOV.SMM TOASHORT.SMM FAX.SMM"
  2613. 8 10
  2614. 0 16 "{9}" "{8}" "{10}"
  2615. 13
  2616. 8 9
  2617. 0 280 "{7}*.smm" 1
  2618. 13
  2619. 8 11
  2620. 6 11
  2621. 7 ""
  2622. 18 1
  2623. 11 00000864
  2624. 0 789 "Se est<\a> cargando el archivo {6} de {3}"
  2625. 5 0
  2626. 0 259 "{7}{11}" "r"
  2627. 13
  2628. 0 805 &5 [X]
  2629. 13
  2630. 18 1
  2631. 11 00000821
  2632. 16 GetDocInfo "{5}"
  2633. 13
  2634. 8 4
  2635. 6 4
  2636. 5 -1
  2637. 18 1
  2638. 11 00000821
  2639. 0 16 "{4}" "                                                                      |" "{11}"
  2640. 13
  2641. 8 12
  2642. 0 14 "{4}"
  2643. 13
  2644. 5 1
  2645. 18 3
  2646. 11 00000821
  2647. 0 18 "{11}"
  2648. 13
  2649. 0 808 0 "{9}" [X]
  2650. 13
  2651. 5 0
  2652. 18 0
  2653. 11 00000821
  2654. 0 1041 &0 "{6}" "{12}"
  2655. 6 6
  2656. 5 1
  2657. 3 0
  2658. 8 6
  2659. 0 260 "{5}"
  2660. 0 281
  2661. 13
  2662. 8 11
  2663. 10 00000361
  2664. 0 296 0
  2665. 0 789 ""
  2666. 6 1
  2667. 15
  2668. 9
  2669. 14 GetDocInfo
  2670. 7 ""
  2671. 0 782 "{0}" 500
  2672. 13
  2673. 0 805 &2 [X]
  2674. 13
  2675. 18 0
  2676. 11 00000092
  2677. 7 ""
  2678. 15
  2679. 9
  2680. 5 0
  2681. 0 808 1 "{2}" "esc]"
  2682. 13
  2683. 0 805 &3 [X]
  2684. 13
  2685. 18 1
  2686. 11 00000440
  2687. 6 3
  2688. 5 384
  2689. 3 0
  2690. 0 15 "{2}" "{3}" [X]
  2691. 13
  2692. 8 4
  2693. 0 20 "{4}" 2 "    "
  2694. 13
  2695. 8 5
  2696. 0 20 "{4}" 6 "    "
  2697. 13
  2698. 8 6
  2699. 0 17 "{6}"
  2700. 13
  2701. 0 808 0 [X] "noautorun"
  2702. 13
  2703. 5 0
  2704. 18 1
  2705. 11 00000344
  2706. 5 -1
  2707. 15
  2708. 9
  2709. 0 14 "{5}"
  2710. 13
  2711. 5 1
  2712. 3 1
  2713. 8 7
  2714. 0 806 "{5}" "{7}"
  2715. 13
  2716. 8 5
  2717. 0 806 "{5}" 80
  2718. 13
  2719. 8 5
  2720. 6 5
  2721. 15
  2722. 9
  2723. 6 1
  2724. 15
  2725. 9
  2726. 14 countfiles
  2727. 0 280 "{0}" 1
  2728. 13
  2729. 8 2
  2730. 6 2
  2731. 7 ""
  2732. 18 1
  2733. 11 00000118
  2734. 6 3
  2735. 5 1
  2736. 3 0
  2737. 8 3
  2738. 0 281
  2739. 13
  2740. 8 2
  2741. 10 00000039
  2742. 6 3
  2743. 15
  2744. 9
  2745. 6 1
  2746. 15
  2747. 9
  2748. 14 zproglod
  2749. 0 802
  2750. 13
  2751. 8 2
  2752. 0 274 001
  2753. 0 32 2
  2754. 0 286 "amipro" "automacroload" "amipro.ini"
  2755. 13
  2756. 0 17 [X]
  2757. 13
  2758. 8 3
  2759. 7 "_autorun.smm!zrunmacs"
  2760. 0 20 "{3}" 2 ","
  2761. 13
  2762. 0 805 &1 [X]
  2763. 13
  2764. 18 0
  2765. 11 00000227
  2766. 5 1
  2767. 15
  2768. 9
  2769. 10 00000387
  2770. 7 "zrunmacs.smm"
  2771. 0 20 "{3}" 2 ","
  2772. 13
  2773. 0 805 &1 [X]
  2774. 13
  2775. 18 0
  2776. 11 00000387
  2777. 0 287 "amipro" "automacroload" "1,_autorun.smm!zrunmacs" "amipro.ini"
  2778. 5 1
  2779. 15
  2780. 9
  2781. 5 1
  2782. 0 20 "{3}" 1 ","
  2783. 13
  2784. 18 0
  2785. 11 00000451
  2786. 16 zmkauto "{1}"
  2787. 0 287 "amipro" "automacroload" "1,_autorun.smm!zrunmacs" "amipro.ini"
  2788. 6 0
  2789. 15
  2790. 9
  2791. 14 zmkauto
  2792. 0 32 2
  2793. 0 1288
  2794. 13
  2795. 8 3
  2796. 0 16 "{3}" "amiauto.cfg"
  2797. 13
  2798. 8 4
  2799. 0 280 "{4}" 33
  2800. 13
  2801. 8 5
  2802. 6 5
  2803. 7 ""
  2804. 18 0
  2805. 11 00000255
  2806. 0 259 "{4}" "w"
  2807. 13
  2808. 8 6
  2809. 6 6
  2810. 5 1
  2811. 18 5
  2812. 11 00000242
  2813. 0 3 "Imposible crear el archivo AMIAUTO.CFG."
  2814. 5 -1
  2815. 15
  2816. 9
  2817. 0 260 "{6}"
  2818. 0 259 "{4}" "r"
  2819. 13
  2820. 8 6
  2821. 6 6
  2822. 5 1
  2823. 18 5
  2824. 11 00000369
  2825. 0 3 "Imposible leer el archivo AMIAUTO.CFG."
  2826. 5 -1
  2827. 15
  2828. 9
  2829. 5 1
  2830. 11 00000548
  2831. 0 257 "{6}"
  2832. 13
  2833. 0 805 &2 [X]
  2834. 13
  2835. 5 0
  2836. 18 3
  2837. 11 00000522
  2838. 0 17 "{0}"
  2839. 13
  2840. 0 17 "{2}"
  2841. 13
  2842. 18 0
  2843. 11 00000509
  2844. 5 0
  2845. 15
  2846. 9
  2847. 10 00000535
  2848. 10 00000548
  2849. 10 00000369
  2850. 0 260 "{6}"
  2851. 0 259 "{4}" "a"
  2852. 13
  2853. 8 6
  2854. 6 6
  2855. 5 1
  2856. 18 5
  2857. 11 00000676
  2858. 0 3 "Imposible abrir el archivo AMIAUTO.CFG."
  2859. 5 -1
  2860. 15
  2861. 9
  2862. 0 17 "{0}"
  2863. 13
  2864. 0 258 "{6}" [X]
  2865. 0 260 "{6}"
  2866. 16 zproglod
  2867. 5 1
  2868. 15
  2869. 9
  2870. 6 1
  2871. 15
  2872. 9
  2873. 14 zrunmacs
  2874. 0 32 2
  2875. 0 1288
  2876. 13
  2877. 8 1
  2878. 0 16 "{1}" "amiauto.cfg"
  2879. 13
  2880. 8 2
  2881. 0 280 "{2}" 33
  2882. 13
  2883. 8 3
  2884. 6 3
  2885. 7 ""
  2886. 18 0
  2887. 11 00000140
  2888. 6 0
  2889. 15
  2890. 9
  2891. 0 259 "{2}" "r"
  2892. 13
  2893. 8 4
  2894. 6 4
  2895. 5 1
  2896. 18 5
  2897. 11 00000254
  2898. 0 3 "Imposible abrir el archivo AMIAUTO.CFG"
  2899. 5 -1
  2900. 15
  2901. 9
  2902. 20 00000469
  2903. 19 00000469
  2904. 5 100
  2905. 21 5 [X]
  2906. 5 0
  2907. 8 6
  2908. 5 1
  2909. 11 00000469
  2910. 0 257 "{4}"
  2911. 13
  2912. 8 7
  2913. 6 7
  2914. 5 -1
  2915. 18 0
  2916. 11 00000390
  2917. 10 00000469
  2918. 6 7
  2919. 7 ""
  2920. 18 1
  2921. 11 00000456
  2922. 6 6
  2923. 5 1
  2924. 3 0
  2925. 8 6
  2926. 6 6
  2927. 6 7
  2928. 23 5
  2929. 10 00000307
  2930. 0 260 "{4}"
  2931. 5 1
  2932. 8 8
  2933. 6 6
  2934. 6 8
  2935. 18 2
  2936. 12 00000567
  2937. 10 00000606
  2938. 5 1
  2939. 6 8
  2940. 3 0
  2941. 8 8
  2942. 10 00000492
  2943. 6 8
  2944. 22 5
  2945. 8 7
  2946. 16 "{7}"
  2947. 10 00000534
  2948. 6 0
  2949. 15
  2950. 9
  2951. 00036403
  2952.